object dm: Tdm
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Left = 198
  Top = 175
  Height = 345
  Width = 541
  object tabEventos: TKADaoTable
    AutoFindIndex = True
    ComponentVersion = '11.00'
    CacheBlobs = False
    CacheMemos = False
    CacheLookups = False
    Database = Conexao
    ExportMethod = VisibleFields
    RefreshSorted = False
    TableName = 'Eventos'
    QueryDefSQLModify = False
    QueryDefODBCMaxRecords = 0
    ShowGUID = False
    TableType = 2
    Translation = False
    LockType = 3
    OpenOptions = []
    FieldDefs = <
      item
        Name = 'idevento'
        DataType = ftInteger
      end
      item
        Name = 'Evento'
        DataType = ftString
        Size = 100
      end
      item
        Name = 'Data'
        DataType = ftDateTime
      end
      item
        Name = 'Primeiro'
        DataType = ftInteger
      end
      item
        Name = 'Segundo'
        DataType = ftInteger
      end
      item
        Name = 'Terceiro'
        DataType = ftInteger
      end
      item
        Name = 'Quarto'
        DataType = ftInteger
      end
      item
        Name = 'Quinto'
        DataType = ftInteger
      end
      item
        Name = 'Sexto'
        DataType = ftInteger
      end
      item
        Name = 'Setimo'
        DataType = ftInteger
      end
      item
        Name = 'Oitavo'
        DataType = ftInteger
      end
      item
        Name = 'Nono'
        DataType = ftInteger
      end
      item
        Name = 'Decimo'
        DataType = ftInteger
      end
      item
        Name = 'DecimoPrimeiro'
        DataType = ftInteger
      end
      item
        Name = 'DecimoSegundo'
        DataType = ftInteger
      end
      item
        Name = 'DecimoTerceiro'
        DataType = ftInteger
      end
      item
        Name = 'DecimoQuarto'
        DataType = ftInteger
      end
      item
        Name = 'DecimoQuinto'
        DataType = ftInteger
      end
      item
        Name = 'DecimoSexto'
        DataType = ftInteger
      end
      item
        Name = 'Finalizada'
        DataType = ftBoolean
      end>
    IndexDefs = <>
    IndexFieldCount = 0
    ReadOnly = False
    LockEdits = False
    MasterAutoActivate = True
    DatabaseAutoActivate = False
    UseBrackets = True
    UseCaptions = False
    UseDaoProperties = True
    UseGetRecNo = True
    UseRecordCount = True
    WarnOnBadDatabase = False
    Filtered = False
    ParamCheck = True
    ProcessMessages = False
    Left = 96
    Top = 24
    object tabEventosidevento: TAutoIncField
      FieldName = 'idevento'
      ReadOnly = True
    end
    object tabEventosEvento: TStringField
      FieldName = 'Evento'
      Size = 100
    end
    object tabEventosData: TDateTimeField
      FieldName = 'Data'
      DisplayFormat = 'dd/mm/yyyy'
      EditMask = '!99/99/0000;1;_'
    end
    object tabEventosPrimeiro: TIntegerField
      FieldName = 'Primeiro'
    end
    object tabEventosSegundo: TIntegerField
      FieldName = 'Segundo'
    end
    object tabEventosTerceiro: TIntegerField
      FieldName = 'Terceiro'
    end
    object tabEventosQuarto: TIntegerField
      FieldName = 'Quarto'
    end
    object tabEventosQuinto: TIntegerField
      FieldName = 'Quinto'
    end
    object tabEventosSexto: TIntegerField
      FieldName = 'Sexto'
    end
    object tabEventosSetimo: TIntegerField
      FieldName = 'Setimo'
    end
    object tabEventosOitavo: TIntegerField
      FieldName = 'Oitavo'
    end
    object tabEventosNono: TIntegerField
      FieldName = 'Nono'
    end
    object tabEventosDecimo: TIntegerField
      FieldName = 'Decimo'
    end
    object tabEventosDecimoPrimeiro: TIntegerField
      FieldName = 'DecimoPrimeiro'
    end
    object tabEventosDecimoSegundo: TIntegerField
      FieldName = 'DecimoSegundo'
    end
    object tabEventosDecimoTerceiro: TIntegerField
      FieldName = 'DecimoTerceiro'
    end
    object tabEventosDecimoQuarto: TIntegerField
      FieldName = 'DecimoQuarto'
    end
    object tabEventosDecimoQuinto: TIntegerField
      FieldName = 'DecimoQuinto'
    end
    object tabEventosDecimoSexto: TIntegerField
      FieldName = 'DecimoSexto'
    end
    object tabEventosFinalizada: TBooleanField
      FieldName = 'Finalizada'
    end
  end
  object Conexao: TKADaoDatabase
    ComponentVersion = '11.00'
    Exclusive = False
    DatabaseType = 'Access'
    Database = 
      'D:\Devel\Delphi\ProjetosAtuais\GTRCalendario\Executavel\GTRCalen' +
      'dario.mdb'
    ReadOnly = False
    LoginPrompt = False
    UserName = 'Admin'
    UseODBCDialog = True
    SystemDatabase = 'system.mdb'
    SaveUserName = True
    ShowSystemObjects = False
    SmartOpen = True
    EngineType = 2
    PrivateEngine = False
    TrackTransactions = True
    UsesDynaDao = True
    Version = '3.6'
    VersionDetails = '3.6'
    VersionInfo = '(In Access'#39'2000 mode)'
    Workspace = 'DaoWorkspace'
    DefaultCursorDriver = -1
    QueryTimeout = 60
    MdbVersionAutoDetect = False
    Left = 24
    Top = 24
  end
  object tabPilotos: TKADaoTable
    AutoFindIndex = True
    ComponentVersion = '11.00'
    CacheBlobs = False
    CacheMemos = False
    CacheLookups = False
    Database = Conexao
    ExportMethod = VisibleFields
    RefreshSorted = False
    TableName = 'Pilotos'
    SortedBy.Strings = (
      '[Nome] ASC')
    SortedByText.Strings = (
      '[Nome] ASC')
    QueryDefSQLModify = False
    QueryDefODBCMaxRecords = 0
    ShowGUID = False
    TableType = 2
    Translation = False
    LockType = 3
    OpenOptions = []
    FieldDefs = <
      item
        Name = 'idpiloto'
        DataType = ftAutoInc
      end
      item
        Name = 'Nome'
        DataType = ftString
        Size = 100
      end
      item
        Name = 'DataNascimento'
        DataType = ftDateTime
      end
      item
        Name = 'Equipe'
        DataType = ftInteger
      end
      item
        Name = 'Pontos'
        DataType = ftInteger
      end>
    IndexDefs = <>
    IndexFieldCount = 0
    ReadOnly = False
    LockEdits = False
    MasterAutoActivate = True
    DatabaseAutoActivate = False
    UseBrackets = True
    UseCaptions = False
    UseDaoProperties = True
    UseGetRecNo = True
    UseRecordCount = True
    WarnOnBadDatabase = False
    Filtered = False
    ParamCheck = True
    ProcessMessages = False
    Left = 96
    Top = 72
    object tabPilotosidpiloto: TAutoIncField
      FieldName = 'idpiloto'
      ReadOnly = True
    end
    object tabPilotosNome: TStringField
      FieldName = 'Nome'
      Size = 100
    end
    object tabPilotosDataNascimento: TDateTimeField
      FieldName = 'DataNascimento'
    end
    object tabPilotosEquipe: TIntegerField
      FieldName = 'Equipe'
    end
    object tabPilotosPontos: TIntegerField
      FieldName = 'Pontos'
    end
  end
  object sqlTemp: TKADaoTable
    AutoFindIndex = True
    ComponentVersion = '11.00'
    CacheBlobs = False
    CacheMemos = False
    CacheLookups = False
    Database = Conexao
    ExportMethod = VisibleFields
    RefreshSorted = False
    QueryDefSQLModify = False
    QueryDefODBCMaxRecords = 0
    ShowGUID = False
    TableType = 2
    Translation = False
    LockType = 3
    OpenOptions = []
    FieldDefs = <>
    IndexDefs = <>
    IndexFieldCount = 0
    ReadOnly = False
    LockEdits = False
    MasterAutoActivate = True
    DatabaseAutoActivate = False
    UseBrackets = True
    UseCaptions = False
    UseDaoProperties = True
    UseGetRecNo = True
    UseRecordCount = True
    WarnOnBadDatabase = False
    Filtered = False
    ParamCheck = True
    ProcessMessages = False
    Left = 176
    Top = 184
  end
  object tabPontuacao: TKADaoTable
    AutoFindIndex = True
    ComponentVersion = '11.00'
    CacheBlobs = False
    CacheMemos = False
    CacheLookups = False
    Database = Conexao
    ExportMethod = VisibleFields
    RefreshSorted = False
    TableName = 'Pontuacao'
    QueryDefSQLModify = False
    QueryDefODBCMaxRecords = 0
    ShowGUID = False
    TableType = 2
    Translation = False
    LockType = 3
    OpenOptions = []
    FieldDefs = <
      item
        Name = 'idevento'
        DataType = ftInteger
      end
      item
        Name = 'idpiloto'
        DataType = ftInteger
      end
      item
        Name = 'Pontos'
        DataType = ftInteger
      end
      item
        Name = 'Posicao'
        DataType = ftInteger
      end
      item
        Name = 'Peso'
        DataType = ftInteger
      end
      item
        Name = 'Penalidade'
        DataType = ftInteger
      end
      item
        Name = 'Acumulado'
        DataType = ftInteger
      end>
    IndexDefs = <>
    IndexFieldCount = 0
    ReadOnly = False
    LockEdits = False
    MasterAutoActivate = True
    DatabaseAutoActivate = False
    UseBrackets = True
    UseCaptions = False
    UseDaoProperties = True
    UseGetRecNo = True
    UseRecordCount = True
    WarnOnBadDatabase = False
    Filtered = False
    ParamCheck = True
    ProcessMessages = False
    Left = 96
    Top = 128
    object tabPontuacaoidpiloto: TIntegerField
      FieldName = 'idpiloto'
    end
    object tabPontuacaoidevento: TIntegerField
      FieldName = 'idevento'
    end
    object tabPontuacaoPontos: TIntegerField
      FieldName = 'Pontos'
    end
    object tabPontuacaoPenalidade: TIntegerField
      FieldName = 'Penalidade'
    end
    object tabPontuacaoPosicao: TIntegerField
      FieldName = 'Posicao'
    end
    object tabPontuacaoPeso: TIntegerField
      FieldName = 'Peso'
    end
    object tabPontuacaoAcumulado: TIntegerField
      FieldName = 'Acumulado'
    end
  end
  object sqlAcumulado: TKADaoTable
    AutoFindIndex = True
    ComponentVersion = '11.00'
    CacheBlobs = False
    CacheMemos = False
    CacheLookups = False
    Database = Conexao
    ExportMethod = VisibleFields
    RefreshSorted = False
    QueryDefSQLModify = False
    QueryDefODBCMaxRecords = 0
    ShowGUID = False
    TableType = 2
    Translation = False
    LockType = 3
    OpenOptions = []
    FieldDefs = <>
    IndexDefs = <>
    IndexFieldCount = 0
    ReadOnly = False
    LockEdits = False
    MasterAutoActivate = True
    DatabaseAutoActivate = False
    UseBrackets = True
    UseCaptions = False
    UseDaoProperties = True
    UseGetRecNo = True
    UseRecordCount = True
    WarnOnBadDatabase = False
    Filtered = False
    ParamCheck = True
    ProcessMessages = False
    Left = 168
    Top = 72
  end
  object sqlPontuacao: TKADaoTable
    AutoFindIndex = True
    ComponentVersion = '11.00'
    CacheBlobs = False
    CacheMemos = False
    CacheLookups = False
    Database = Conexao
    ExportMethod = VisibleFields
    RefreshSorted = False
    QueryDefName = 'consultaPontuacao'
    QueryDefSQLText.Strings = (
      
        'SELECT Pilotos.idpiloto, Pilotos.Nome, Sum(Pontuacao.Pontos) AS ' +
        'SomaDePontos, Sum(Pontuacao.Peso) AS SomaDePeso'
      
        'FROM Pilotos INNER JOIN Pontuacao ON Pilotos.idpiloto = Pontuaca' +
        'o.idpiloto'
      'GROUP BY Pilotos.idpiloto, Pilotos.Nome'
      'ORDER BY Sum(Pontuacao.Pontos) DESC;')
    QueryDefSQLModify = False
    QueryDefODBCMaxRecords = 0
    ShowGUID = False
    TableType = 2
    Translation = False
    LockType = 3
    OpenOptions = []
    FieldDefs = <
      item
        Name = 'idpiloto'
        DataType = ftAutoInc
      end
      item
        Name = 'Nome'
        DataType = ftString
        Size = 100
      end
      item
        Name = 'SomaDePontos'
        DataType = ftFloat
      end
      item
        Name = 'SomaDePeso'
        DataType = ftFloat
      end>
    IndexDefs = <>
    IndexFieldCount = 0
    ReadOnly = True
    LockEdits = False
    MasterAutoActivate = True
    DatabaseAutoActivate = False
    UseBrackets = True
    UseCaptions = False
    UseDaoProperties = True
    UseGetRecNo = True
    UseRecordCount = True
    WarnOnBadDatabase = False
    Filtered = False
    ParamCheck = True
    ProcessMessages = False
    Left = 168
    Top = 128
    object sqlPontuacaoidpiloto: TAutoIncField
      FieldName = 'idpiloto'
    end
    object sqlPontuacaoNome: TStringField
      FieldName = 'Nome'
      Size = 100
    end
    object sqlPontuacaoSomaDePontos: TFloatField
      FieldName = 'SomaDePontos'
      Precision = 7
    end
    object sqlPontuacaoSomaDePeso: TFloatField
      FieldName = 'SomaDePeso'
      Precision = 7
    end
  end
  object tabDetalhePontuacao: TKADaoTable
    AutoFindIndex = True
    ComponentVersion = '11.00'
    CacheBlobs = False
    CacheMemos = False
    CacheLookups = False
    Database = Conexao
    ExportMethod = VisibleFields
    RefreshSorted = False
    QueryDefSQLModify = False
    QueryDefODBCMaxRecords = 0
    SQL.Strings = (
      'SELECT * from DetalhePontuacao;')
    ShowGUID = False
    TableType = 2
    Translation = False
    LockType = 3
    OpenOptions = []
    FieldDefs = <
      item
        Name = 'idevento'
        DataType = ftInteger
      end
      item
        Name = 'Data'
        DataType = ftDateTime
      end
      item
        Name = 'Evento'
        DataType = ftString
        Size = 100
      end
      item
        Name = 'Pontos'
        DataType = ftInteger
      end
      item
        Name = 'Penalidade'
        DataType = ftInteger
      end
      item
        Name = 'Posicao'
        DataType = ftInteger
      end
      item
        Name = 'Peso'
        DataType = ftInteger
      end
      item
        Name = 'idpiloto'
        DataType = ftAutoInc
      end>
    IndexDefs = <>
    IndexFieldCount = 0
    ReadOnly = False
    LockEdits = False
    MasterAutoActivate = True
    DatabaseAutoActivate = False
    UseBrackets = True
    UseCaptions = False
    UseDaoProperties = True
    UseGetRecNo = True
    UseRecordCount = True
    WarnOnBadDatabase = False
    Filtered = False
    ParamCheck = True
    ProcessMessages = False
    Left = 96
    Top = 184
    object tabDetalhePontuacaoidevento: TIntegerField
      FieldName = 'idevento'
    end
    object tabDetalhePontuacaoData: TDateTimeField
      FieldName = 'Data'
      DisplayFormat = 'dd/mm/yyyy'
    end
    object tabDetalhePontuacaoEvento: TStringField
      FieldName = 'Evento'
      Size = 100
    end
    object tabDetalhePontuacaoPontos: TIntegerField
      FieldName = 'Pontos'
    end
    object tabDetalhePontuacaoPenalidade: TIntegerField
      FieldName = 'Penalidade'
    end
    object tabDetalhePontuacaoPosicao: TIntegerField
      FieldName = 'Posicao'
    end
    object tabDetalhePontuacaoidpiloto: TAutoIncField
      FieldName = 'idpiloto'
      ReadOnly = True
    end
    object tabDetalhePontuacaoPeso: TIntegerField
      FieldName = 'Peso'
    end
  end
  object sqlEventos: TKADaoTable
    AutoFindIndex = True
    ComponentVersion = '11.00'
    CacheBlobs = False
    CacheMemos = False
    CacheLookups = False
    Database = Conexao
    ExportMethod = VisibleFields
    RefreshSorted = False
    QueryDefSQLModify = False
    QueryDefODBCMaxRecords = 0
    SQL.Strings = (
      'SELECT * FROM eventos')
    ShowGUID = False
    TableType = 2
    Translation = False
    LockType = 3
    OpenOptions = []
    FieldDefs = <
      item
        Name = 'idevento'
        DataType = ftInteger
      end
      item
        Name = 'Evento'
        DataType = ftString
        Size = 100
      end
      item
        Name = 'Data'
        DataType = ftDateTime
      end
      item
        Name = 'Primeiro'
        DataType = ftInteger
      end
      item
        Name = 'Segundo'
        DataType = ftInteger
      end
      item
        Name = 'Terceiro'
        DataType = ftInteger
      end
      item
        Name = 'Quarto'
        DataType = ftInteger
      end
      item
        Name = 'Quinto'
        DataType = ftInteger
      end
      item
        Name = 'Sexto'
        DataType = ftInteger
      end
      item
        Name = 'Setimo'
        DataType = ftInteger
      end
      item
        Name = 'Oitavo'
        DataType = ftInteger
      end
      item
        Name = 'Nono'
        DataType = ftInteger
      end
      item
        Name = 'Decimo'
        DataType = ftInteger
      end
      item
        Name = 'DecimoPrimeiro'
        DataType = ftInteger
      end
      item
        Name = 'DecimoSegundo'
        DataType = ftInteger
      end
      item
        Name = 'DecimoTerceiro'
        DataType = ftInteger
      end
      item
        Name = 'DecimoQuarto'
        DataType = ftInteger
      end
      item
        Name = 'DecimoQuinto'
        DataType = ftInteger
      end
      item
        Name = 'DecimoSexto'
        DataType = ftInteger
      end
      item
        Name = 'Finalizada'
        DataType = ftBoolean
      end>
    IndexDefs = <>
    IndexFieldCount = 0
    ReadOnly = False
    LockEdits = False
    MasterAutoActivate = True
    DatabaseAutoActivate = False
    UseBrackets = True
    UseCaptions = False
    UseDaoProperties = True
    UseGetRecNo = True
    UseRecordCount = True
    WarnOnBadDatabase = False
    Filtered = False
    ParamCheck = True
    ProcessMessages = False
    Left = 168
    Top = 24
    object sqlEventosidevento: TIntegerField
      FieldName = 'idevento'
    end
    object sqlEventosEvento: TStringField
      FieldName = 'Evento'
      Size = 100
    end
    object sqlEventosData: TDateTimeField
      FieldName = 'Data'
    end
    object sqlEventosPrimeiro: TIntegerField
      FieldName = 'Primeiro'
    end
    object sqlEventosSegundo: TIntegerField
      FieldName = 'Segundo'
    end
    object sqlEventosTerceiro: TIntegerField
      FieldName = 'Terceiro'
    end
    object sqlEventosQuarto: TIntegerField
      FieldName = 'Quarto'
    end
    object sqlEventosQuinto: TIntegerField
      FieldName = 'Quinto'
    end
    object sqlEventosSexto: TIntegerField
      FieldName = 'Sexto'
    end
    object sqlEventosSetimo: TIntegerField
      FieldName = 'Setimo'
    end
    object sqlEventosOitavo: TIntegerField
      FieldName = 'Oitavo'
    end
    object sqlEventosNono: TIntegerField
      FieldName = 'Nono'
    end
    object sqlEventosDecimo: TIntegerField
      FieldName = 'Decimo'
    end
    object sqlEventosDecimoPrimeiro: TIntegerField
      FieldName = 'DecimoPrimeiro'
    end
    object sqlEventosDecimoSegundo: TIntegerField
      FieldName = 'DecimoSegundo'
    end
    object sqlEventosDecimoTerceiro: TIntegerField
      FieldName = 'DecimoTerceiro'
    end
    object sqlEventosDecimoQuarto: TIntegerField
      FieldName = 'DecimoQuarto'
    end
    object sqlEventosDecimoQuinto: TIntegerField
      FieldName = 'DecimoQuinto'
    end
    object sqlEventosDecimoSexto: TIntegerField
      FieldName = 'DecimoSexto'
    end
    object sqlEventosFinalizada: TBooleanField
      FieldName = 'Finalizada'
    end
  end
  object tabPenalizacoes: TKADaoTable
    AutoFindIndex = True
    ComponentVersion = '11.00'
    CacheBlobs = False
    CacheMemos = False
    CacheLookups = False
    Database = Conexao
    ExportMethod = VisibleFields
    RefreshSorted = False
    QueryDefSQLModify = False
    QueryDefODBCMaxRecords = 0
    SQL.Strings = (
      'select pe.*,pi.nome from penalizacoes pe'
      'INNER JOIN pilotos pi '
      'ON pe.idpiloto = pi.idpiloto'
      'WHERE pe.idevento=:IDEVENTO')
    ShowGUID = False
    TableType = 2
    Translation = False
    LockType = 3
    OpenOptions = []
    FieldDefs = <>
    IndexDefs = <>
    IndexFieldCount = 0
    ReadOnly = False
    LockEdits = False
    MasterAutoActivate = True
    DatabaseAutoActivate = False
    UseBrackets = True
    UseCaptions = False
    UseDaoProperties = True
    UseGetRecNo = True
    UseRecordCount = True
    WarnOnBadDatabase = False
    Filtered = False
    ParamCheck = True
    ProcessMessages = False
    Left = 176
    Top = 248
    ParamData = <
      item
        DataType = ftInteger
        Name = 'IDEVENTO'
        ParamType = ptUnknown
      end>
    object tabPenalizacoesidevento: TIntegerField
      FieldName = 'idevento'
    end
    object tabPenalizacoesidpiloto: TIntegerField
      FieldName = 'idpiloto'
    end
    object tabPenalizacoesnome: TStringField
      FieldName = 'nome'
      Size = 100
    end
    object tabPenalizacoesPenalidade: TIntegerField
      FieldName = 'Penalidade'
    end
  end
end
